Aminet 7/Aminet 7 - August 1995.iso/Aminet/misc/math/gpamiga_1_38_3.lha/elisp/pari.elc

Text File | 1993-12-09 | 16.2 KB | 309 lines

(provide (quote gp))

(defconst gp-chap3 "pari:doc/usersch3.tex" "\
The TeX source for chapter 3 of the PARI-GP manual")

(defconst gp-file-name "pari:bin/gp.68881" "\
The file name of the gp executable file")

(defconst gp-man-dvi "pari:doc/users.dvi" "\
dvi version of the manual")

(defconst gp-menu "pari:elisp/pari.menu" "\
menu file")

(defconst gp-dvi-preview "xdvi -s 3" "\
dvi previewer (and options)")

(defvar gp-stack-size "1000000" "\
Default stack size: passed to the progam gp.")

(defvar gp-buffer-size "30000" "\
Default buffer size: passed to the progam gp.")

(defvar gp-prime-limit "500000" "\
Default prime limit: passed to the progam gp.")

(defvar gp-prompt-for-args nil "\
A non-nil value makes M-x gp act like C-u M-x gp,
   ie prompt for the command line arguments.")

(setq gp-temp-file (make-temp-name "t:gp_"))

(defvar gp-prompt-pattern "---- (type return to continue) ----\\|\\?[
     ]*" "Regexp used to match gp prompts.
   can be set with gp-set-prompt (bound to M-\\ p)")

(defconst gp-c-array (make-vector 509 0) "\
obarray used fo completing gp command names")

(defvar gp-map (make-sparse-keymap) "\
Local keymap used in buffer *PARI*.")

(define-key gp-map "
" (quote gp-send-input))

(define-key gp-map "" (quote gp-copy-input))

(define-key gp-map "‰" (quote gp-complete))

(define-key gp-map "Üp" (quote gp-set-prompt))

(define-key gp-map "Üt" (quote gp-meta-t))

(define-key gp-map "Üd" (quote gp-meta-d))

(define-key gp-map "Ür" (quote gp-meta-r))

(define-key gp-map "Üw" (quote gp-meta-w))

(define-key gp-map "Üv" (quote gp-meta-v))

(define-key gp-map "Üx" (quote gp-meta-x))

(define-key gp-map "Üs" (quote gp-meta-s))

(define-key gp-map "Üa" (quote gp-meta-a))

(define-key gp-map "Üb" (quote gp-meta-b))

(define-key gp-map "Üm" (quote gp-meta-m))

(define-key gp-map "Ük" (quote gp-meta-k))

(define-key gp-map "Üq" (quote gp-meta-q))

(define-key gp-map "¿" (quote gp-get-man-entry))

(define-key gp-map "Üc" (quote gp-menu))

(define-key gp-map "Ü\\" (quote gp-break-long-line))

(define-key gp-map "" (quote gp-interrupt))

(defvar gp-process nil "\
")

(defvar gp-man-process nil "\
")

(defun gp (flag) "\

   Open a buffer and a window for the execution of gp.

   The following bindings are available:
   \\{gp-map}

  The variables
  gp-file-name gp-stack-size gp-buffer-size gp-prime-limit
  determine the command line that starts gp.
  To override the default settings, give gp a prefix argument.
  C-u M-x gp ." (interactive "P") (byte-code "ÁˆÑÒ!ˆdbˆÓ!…ÔÕ!Ö!=ƒÁ‚š× ˆØ‰ˆÙ‰ˆÚÛ!ˆÜ!ˆÝ‰ˆÞ!ˆ†@ßà
á$ßâã$ßäå$ßæ
ç$R    è    èQcˆ`éêÒëì    P%‰ˆí ˆŠîï\"ˆðñò!óò!\"‰))*ˆôõ\"‡" [gp-process nil major-mode mode-name gp-map mode-line-process gp-menu flag gp-prompt-for-args gp-command gp-file-name gp-stack-size gp-buffer-size gp-prime-limit gp-begin shell-file-name gp-version switch-to-buffer "*PARI*" processp intern "run" process-status kill-all-local-variables gp "GP" run-hooks gp-mode-hook use-local-map (": %s") gp-completion-file gp-read-input "Gp executable ?" "" "Stack size ?" " -s " "Buffer size ?" " -b " "Prime limit ?" " -p " "
" start-process "pari" "-c" "stty nl; exec " gp-wait-for-output re-search-backward "Version  *\\([.0-9]*\\)" buffer-substring match-beginning 1 match-end set-process-sentinel gp-sentinel] 21))

(defun gp-read-input (prompt default sep flag) "\
 If flag is non-nil, reads string then if string is \"\" uses default.
  If flag is nil then string is the default.
  If resulting string is not \"\" prepends sep.
  As a special case, if string is a space, return \"\"." (byte-code "    ā
ÆÇR!‚ÈÉ\"ƒ(ÈÉ\"ƒ\"ɂ%P‚6ÈÊ\"ƒ3ɂ6P)‡" [string flag prompt default sep read-input " (Default " ") " equal "" " "] 6))

(defun gp-sentinel (proc msg) "\
Sentinel for the gp-process in buffer *PARI*." (byte-code "ÇÈ!…    ÉÈ!ˆÊ    !…É!)ˆÊ
!…\"É!)ˆÇË!…6ËqˆdbˆcˆÌË!ˆÍ!…EÎ!ˆÏÐ\"ˆÆ‰‡" [b gp-chap3 gp-menu msg gp-temp-file gp-process nil get-buffer "*gp-help*" kill-buffer get-file-buffer "*PARI*" delete-windows-on file-exists-p delete-file message "Removing %s"] 13))

(defun gpman nil "\
Start up xdvi with the gp manual." (interactive) (byte-code "ÁˆÅÆ!ˆÇÈ!qˆƒÁ‚-ÉÊ
ËR!ˆÌÍÈÎÏ
ËR%‰ˆÐÑ\"‡" [gp-man-process nil gp-dvi-preview gp-man-dvi shell-file-name run-hooks gp-mode-hook get-buffer-create "*GP-MAN*" message "Starting " " " start-process "gp-man" "-c" "exec " set-process-sentinel gp-man-sentinel] 12))

(defun gp-man-sentinel (proc msg) "\
Sentinel for the gp-man-process in buffer *GP-MAN*." (byte-code "Å    !…Æ!)ˆÇÈ
P!ˆÄ‰‡" [buf proc msg gp-man-process nil process-buffer kill-buffer message "gpman: "] 5))

(defun gp-copy-input nil "\
Copy expression around point to the end of the buffer.
   (Unless this is already the last expression.)" (interactive) (byte-code "ɈÊ!ˆËÌ!Í ˆÎ!ˆ`‰ˆ    b)ˆÎÏÐQdÄ#ƒ,ÑÌ!‚-d
bˆÒÓ!ƒ;Ԃ<ÕÎ
Ö#‰ˆ`‰ˆ…jdbˆ×
\"cˆƒdɂjØ ˆÙÚ!)))‡" [gp-prompt-pattern p gp-input-start nlast t limit end-expression gp-complete-expression gp-input-end nil re-search-backward match-end 0 beginning-of-line re-search-forward "[
 ]*\\(" "\\|^%[0-9]+ = \\|^ *\\*\\*\\*\\|^ *unused characters\\|^ *time[ r]\\)" match-beginning looking-at " *{" "}$" "[^\\]$" 1 buffer-substring ding message "Incomplete expression."] 12))

(defun gp-send-input nil "\
Send input to gp. Does not send incomplete expressions
   ie those starting with {, without a matching }, or those
   ending with \\ .
   Use a temporary file (and \\r ) for large expressions" (interactive) (byte-code "ÅˆÆ ˆÇcˆƒ8
ZÈVƒ$É
    #ˆÊËÇQ\"‚.Ì
    #ˆÊÇ\"ˆÍÎ!`\"‚;ÏÐ!‡" [gp-complete-expression gp-input-end gp-input-start gp-temp-file gp-process nil gp-copy-input "
" 255 write-region process-send-string "\\r " process-send-region set-marker process-mark message "Incomplete expression: Not sent to gp."] 9))

(defun gp-interrupt nil "\
Interrupt gp.
   This is identical to interrupt-shell-subjob in shell-mode." (interactive) (byte-code "ÀˆÂÀÁ\"‡" [nil t interrupt-process] 3))

(defun gp-set-prompt (p) "\
Set new gp prompt (and tell emacs that you have done so).
   Do not put spaces in the argument, or emacs and gp will
   have a different idea about what the prompt is." (interactive "sNew prompt: ") (byte-code "ˆà    !ÄQ‰ˆÅqˆdbˆÆ    PcˆÇ ‡" [gp-prompt-pattern p nil regexp-quote "[
     ]*\\|" "*PARI*" "\\prompt=" gp-send-input] 4))

(defun gp-replace (a b) "\
Replace the regexp a by the string b everywhere in the current buffer" (byte-code "ebˆÃdÁ#…Ä
ÁÁ#ˆ‚‡" [a t b re-search-forward replace-match] 6))

(defun gp-get-man-entry (fn) "\
Obtains the description of fn from chapter 3 of the manual.
  Strips off some (not all) of the TeX syntax, and displays the result
  in a new window.
  If there is no entry for fn in the manual, sends ?fn to gp.
  If a definition for fn is found, adds fn to the array of possible
  completions" (interactive (byte-code "ŠÃÄ!ˆÅÆ`ÃÇ!ˆ`\"!)ÈÉÊ
\"…ËÌQÍQ
\"Î    Ï\"ƒ9Ê
\"ƒ5‚6Ђ:    *C‡" [word arg gp-c-array forward-word -1 downcase buffer-substring 1 completing-read "Function" intern-soft " (Default " ")" ": " equal "" " "] 10)) (byte-code "ĈÄÌ
!q)ˆÍÎ\"ƒςÊÍÐ\"ƒ\"тÊÍÒ\"ƒ.ӂÊÍÔ\"ƒ:ՂÊÍÖ\"ƒFׂÊÍØ\"ƒRقÊÍÚ\"ƒ^ۂÊÍÜ\"ƒj݂ÊÍÞ\"ƒv߂ÊÍà\"ƒ‚á‚ÊÍâ\"†¿Íã\"†¿Íä\"†¿Íå\"†¿Íæ\"†¿Íç\"†¿Íè\"†¿Íé\"ƒÆê‚Êë!ebˆìíîQdÈ#ƒ/
ïð!bˆñ`ìòdÈ#ˆóô!\"õ
    ö÷ø!!ˆù ˆ    cˆúûØ\"ˆúüý\"ˆúÏÎ\"ˆúþÐ\"ˆúÿ\"ˆú@A\"ˆebˆB
!*‚B
CqˆDEF!P!)ˆøqˆGH!ƒm
IJø!!ˆKø!ˆLM\"‚s
N!‡" [word arg gp-c-array auto-mode-alist nil gp-chap3 qfn fn t copy wind gp-version find-file-noselect equal "\\" "\\\\backslash" "^" "\\\\hat{}" "!" "fact" "~" "trans" "_" "conj" "-" "\\+" "%" "\\\\%" "min" "max" "log" "ln" "det2" "det" "<=" "<" ">=" ">" "==" "!=" "||" "&&" "comparison and \\\\ref{boolean operators}" regexp-quote re-search-forward "\\(subsec[\\\\{ref]*[\\${]\\)" "[}\\$]" match-end 1 buffer-substring "[tT]he library\\|\\\\[sub]*sec" match-beginning 0 selected-window switch-to-buffer-other-window get-buffer-create "*gp-help*" erase-buffer gp-replace "\\$-" "\\$" " " "\\\\hat" "\\\\vers" "\\\\smallskip\\|\\\\sref{[ a-z]*}\\|\\\\bf\\|\\\\ref\\|\\\\Bbb\\|\\\\text\\|\\\\tt\\|{\\|}" "" select-window "*PARI*" gp-meta-command "?" downcase looking-at "Unknown function" bury-buffer get-buffer delete-windows-on message "Unknown function: %s" gp-add-symbol] 46))

(defun gp-meta-command (command) "\
Send command to gp, and display output in help buffer" (byte-code "ŠdbˆÅÆ!`\"ˆ`Ç ÈÉP\"ˆÊ ˆË    d\"Ì    d\"ˆÍÎÏ!!ˆÐ ˆcˆÑ ˆÌ`d\"ˆebˆÒ
!)*)‡" [gp-process temp wind command copy set-marker process-mark selected-window process-send-string "
" gp-wait-for-output buffer-substring delete-region switch-to-buffer-other-window get-buffer-create "*gp-help*" erase-buffer beginning-of-line select-window] 14))

(defun gp-wait-for-output nil "\
Hang around until the prompt appears." (byte-code "Á…9Æ
!ˆ`Ç ˆÈ
!…ÉÊ
!=?†!Ë!ƒ.ÌÍ!ˆÅ‰‚1ÌÎ!ˆb)ˆ‚)‡" [ndone t gp-process p gp-prompt-pattern nil accept-process-output beginning-of-line processp run process-status looking-at message "done" "Waiting for gp output ..."] 9))

(defun gp-meta-d nil "\
Sends \\d to gp, then displays output in the help buffer.
  Prints the gp defaults." (interactive) (byte-code "ÀˆÁÂ!‡" [nil gp-meta-command "\\d"] 2))

(defun gp-meta-t nil "\
Sends \\t to gp, then displays output in the help buffer.
  Prints the longword format of PARI types." (interactive) (byte-code "ÀˆÁÂ!‡" [nil gp-meta-command "\\t"] 2))

(defun gp-meta-r (file) "\
Sends a \\r <file name> comand to gp.
   Reads in gp commands from a file." (interactive "fRead from file: ") (byte-code "ÁˆdbˆÂÃ!PcˆÄ ‡" [file nil "\\r " expand-file-name gp-send-input] 3))

(defun gp-meta-w (file num) "\
Sends a \\w<num> <file name> comand to gp.
  Writes gp object %<num> to <file name>." (interactive "FWrite to file:
sObject number %%") (byte-code "ˆdbˆÃÄÅ    !RcˆÆ ‡" [num file nil "\\w" " " expand-file-name gp-send-input] 5))

(defun gp-meta-x nil "\
Sends \\x to gp, then displays output in the help buffer.
  Prints tree of addresses and contents of last object." (interactive) (byte-code "ÀˆÁÂ!‡" [nil gp-meta-command "\\x"] 2))

(defun gp-meta-v nil "\
Sends \\v to gp, then displays output in the help buffer.
  Prints the version number of this implementation of pari-gp." (interactive) (byte-code "ÀˆÁÂ!‡" [nil gp-meta-command "\\v"] 2))

(defun gp-meta-s (num) "\
Sends \\s or \\s(num) to gp, then displays output in the help buffer.
  Prints the state of the pari stack." (interactive "sNumber of longwords (default 0) ") (byte-code "ÁˆÂÃ\"ƒÄÅ!‚ÄÆÇQ!‡" [num nil equal "" gp-meta-command "\\s" "\\s(" ")"] 6))

(defun gp-meta-a (num) "\
Sends \\a or \\a<num> to gp, then displays output in the help buffer.
  Prints object %<num> in raw format." (interactive "sPrint object (default last) %%") (byte-code "ÁˆÂÃ\"ƒÄÅ!‚ÄÅP!‡" [num nil equal "" gp-meta-command "\\a"] 5))

(defun gp-meta-b (num) "\
Sends \\b or \\b<num> to gp, then displays output in the help buffer.
  Prints object %<num> in pretty format." (interactive "sPrint object (default last) %%") (byte-code "ÁˆÂÃ\"ƒÄÅ!‚ÄÅP!‡" [num nil equal "" gp-meta-command "\\b"] 5))

(defun gp-meta-m (num) "\
Sends \\m or \\m<num> to gp, then displays output in the help buffer.
  Prints object %<num> in prettymatrix format." (interactive "sPrint object (default last) %%") (byte-code "ÁˆÂÃ\"ƒÄÅ!‚ÄÅP!‡" [num nil equal "" gp-meta-command "\\m"] 5))

(defun gp-meta-k nil "\
Sends \\k to gp.
  Prompts for confirmation before
  re-initialising gp and clearing the buffer." (interactive) (byte-code "ÁˆÂÃ!…%ÄqˆdbˆÅcˆÆÇ!`\"ˆÂÈ!… É ˆÊÅ\"ˆËÌ!‡" [gp-process nil y-or-n-p "Re-initialise gp ? " "*PARI*" "\\k
" set-marker process-mark "Clear *PARI* buffer ? " erase-buffer process-send-string message ""] 8))

(defun gp-meta-q nil "\
Sends \\q to gp.
  Prompts for confirmation before quiting." (interactive) (byte-code "ÁˆÂÃ!…ÄqˆdbˆÅÆ\"ˆÇÈ!‡" [gp-process nil y-or-n-p "Quit gp ? " "*PARI*" process-send-string "\\q
" message ""] 4))

(defun gp-break-long-line nil "\
gp will not accept lines longer than 256.
   gp-break-long-line breaks current line
   inserting \\ every (screen-width)-5 chars." (interactive) (byte-code "ÁˆÂ ÃZÄ^Å!ˆÆÇ!?…ÈcˆÅ!ˆ‚
)‡" [length nil screen-width 5 250 move-to-column looking-at "$" "\\
"] 6))

(defun gp-completion-file (file) "\
Takes a file in the format of pari.menu, and adds all the commands
  listed  to the obarray used for completion. If used interactively,
  prompts for the filename in the minibuffer
  The file must have at least one comment line, starting with #, All
  lines before the first comment line are IGNORED." (interactive "fFile of command names: ") (byte-code "ÁˆŠÂ!qˆebˆÃÄ!ˆm?…/ÅÆ!ˆÇÄ!ƒ\"Á‚+ÈÉ`Ê ˆ`\"!ˆ‚)‡" [file nil find-file-noselect re-search-forward "#" forward-line 1 looking-at gp-add-symbol buffer-substring end-of-line] 10))

(defun gp-completion-list (&rest args) "\
The arguments are taken as a list of strings, each string is stored
  as a symbol in the obarray used for completion.
  So (gp-completion-list \"foo\" \"bar\" \"baz\") in the gp-mode-hook will
  let the completion functions 'know' these commands." (byte-code "ÁÂ\"‡" [args mapcar gp-add-symbol] 3))

(defun gp-add-symbol (name) "\
Add a name to the obarray" (byte-code "Â!ˆÃÄ!    \"‡" [name gp-c-array make-symbol intern downcase] 5))

(defun gp-complete nil "\
Attempts to complete a partially typed command in the *PARI*
  buffer. Displays possible completions in the help buffer if no
  unique completion can be done." (interactive) (byte-code "ňhÆU?…ÇÈ!ˆhÆU…ÉÈ!ˆ`ÊËÇÌ!ˆ`\"!Í    \"
Ä=ƒ@ÎÏ!…8ÐÏ!ˆÑÒ    \"‚ˆ
Å=ƒLÑÓ!‚ˆÔ
    \"?…d
cˆÕ    G\\Ö×    G\"\\\"ˆÄÍ
\"=ƒÎÏ!…wÐÏ!ˆÑÒ
\"‚ˆÏØÙ    \"!‘+‡" [c-begin word comp gp-c-array t nil 92 forward-word -1 forward-char downcase buffer-substring 1 try-completion get-buffer "*gp-help*" delete-windows-on message "%s is complete" "No Match found" string= delete-region * 2 display-completion-list all-completions] 22))

(gp-completion-list "\\precision" "\\serieslength" "\\format")

(defun gp-menu nil "\
Major-mode for the gp menu buffer.
The available commands are
\\{gp-menu-map}" (interactive) (byte-code "ƈÇ!ˆÂ‰ˆÈ ˆÀ‰ˆÉ‰ˆÊ
!ˆË ‡" [gp-menu buffer-read-only t major-mode mode-name gp-menu-map nil find-file-other-window kill-all-local-variables "GP MENU" use-local-map gp-menu-main] 5))

(defun gp-menu-info nil (byte-code "ÀÁ!‡" [message "SPC=next DEL=previous RET=select m=main-menu q=quit s=scroll-help"] 2))

(defun gp-menu-next nil "\
Move down one line of the gp help menu. (Go to top if at the end.)" (interactive) (byte-code "ÀˆÁ ˆÂÃ!ˆm…Ä ˆeb‡" [nil gp-menu-info forward-line 1 ding] 4))

(defun gp-menu-previous nil "\
Move up one line of the gp help menu. (Go to bottom if at the top.)" (interactive) (byte-code "ÀˆÁ ˆoƒ ˆdbˆÃ ‚ÄÅ!‡" [nil gp-menu-info ding beginning-of-line forward-line -1] 5))

(defun gp-menu-quit nil "\
Switch the *PARI* buffer if it exists, or (other-buffer) if it does not." (interactive) (byte-code "ÈÄÅ!ÆÅ!ƒÇ ˆÈ!‚%    ƒ!É    !‚%ÉÊ !*‡" [w b t nil get-buffer-window "*PARI*" get-buffer delete-window select-window switch-to-buffer other-buffer] 8))

(defun gp-menu-select nil "\
Select a subject from the main menu, or a manual entry from a subject menu." (interactive) (byte-code "Áˆƒ3Á‰ˆÃ ˆÄ ˆÅ`Æ ˆ`\"ÇÈÉ
P!ˆÊË!ˆ`ÈÌ!ˆÍÎ!\")ˆeb‚?Ä ˆÏÅ`Æ ˆ`\"!ˆÐ ‡" [main-menu nil sect widen beginning-of-line buffer-substring end-of-line narrow-to-region re-search-forward "^###" forward-line 1 "
###" match-beginning 0 gp-get-man-entry gp-menu-info] 15))

(defun gp-menu-main nil "\
Display the main menu." (interactive) (byte-code "ÁˆÄ ˆÅ ˆebˆÆ`ÇÈ!ˆÉÊ!\"ˆebˆÁ‰ˆÃ‰‡" [done nil main-menu t gp-menu-info widen narrow-to-region re-search-forward "
###" match-beginning 0] 7))

(defun gp-menu-scroll nil "\
Scroll the gp help window if it is visible" (interactive) (byte-code "ÁˆÂ ˆÃÄ!…$Å ÆÄ!ˆÇd!ƒeb‚È ˆÉ!)‡" [wind nil gp-menu-info get-buffer-window "*gp-help*" selected-window switch-to-buffer-other-window pos-visible-in-window-p scroll-up select-window] 8))

(defvar gp-menu-map (make-sparse-keymap) "\
Local keymap used in gp menu buffer.")

(define-key gp-menu-map " " (quote gp-menu-next))

(define-key gp-menu-map "" (quote gp-menu-previous))

(define-key gp-menu-map "
" (quote gp-menu-select))

(define-key gp-menu-map "q" (quote gp-menu-quit))

(define-key gp-menu-map "m" (quote gp-menu-main))

(define-key gp-menu-map "s" (quote gp-menu-scroll))